home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64 / basic tips 3 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  92 lines
  1. 1 goto800
  2. 100 rem
  3. 110 l1=54272:l2=54279:l3=54286
  4. 120 h1=l1+1:h2=l2+1:h3=l3+1
  5. 130 v1=l1+4:v2=l2+4:v3=l3+4
  6. 140 poke 54296,15
  7. 150 poke v1+1,19:poke v2+2,1
  8. 160 poke v2+1,36:poke v2+2,36
  9. 170 poke v3+1,18:poke v3+2,170
  10. 180 t=ti
  11. 200 poke v1,29:poke v2,48:poke v3,36
  12. 210 read s:if s=0 goto 290
  13. 220 read x1,y1,x2,y2,x3,y3
  14. 230 if x1 then poke h1,x1:poke l1,y1:poke v1,17
  15. 240 if x2 then poke h2,x2:poke l2,y2:poke v2,33
  16. 250 if x3 then poke h3,x3:poke l3,y3:poke v3,17
  17. 260 t=t+s
  18. 270 if t>ti goto 270
  19. 280 goto 200
  20. 290 rem: forj=l1 to 54296:poke j,0:next j
  21. 300 data 10,51,97,0,0,0,0
  22. 310 data 10,43,52,0,0,0,0
  23. 320 data 20,34,75,21,154,8,147
  24. 330 data 20,34,75,25,177,0,0
  25. 340 data 10,34,75,17,37,6,108
  26. 350 data 10,38,126,0,0,0,0
  27. 360 data 10,43,52,25,177,0,0
  28. 370 data 10,45,198,0,0,0,0
  29. 400 data 20,51,97,21,154,8,147
  30. 410 data 20,51,97,25,177,0,0
  31. 420 data 20,51,97,17,37,9,159
  32. 430 data 20,43,52,25,177,10,205
  33. 440 data 20,57,172,22,227,11,114
  34. 450 data 20,57,172,34,75,0,0
  35. 460 data 20,57,172,28,214,8,147
  36. 470 data 10,0,0,34,75,0,0
  37. 480 data 10,51,97,0,0,0,0
  38. 500 data 20,57,172,22,227,11,114
  39. 510 data 10,0,0,34,75,0,0
  40. 520 data 10,51,97,0,0,0,0
  41. 530 data 10,57,172,28,214,10,205
  42. 540 data 10,64,188,0,0,0,0
  43. 550 data 10,68,149,34,75,9,159
  44. 560 data 10,76,252,0,0,0,0
  45. 600 data 20,86,105,21,154,8,147
  46. 610 data 20,0,0,25,177,0,0
  47. 620 data 20,0,0,17,37,6,108
  48. 630 data 10,68,149,25,177,0,0
  49. 640 data 10,51,97,0,0,0,0
  50. 650 data 20,68,149,21,154,8,147
  51. 660 data 20,0,0,25,177,0,0
  52. 670 data 20,0,0,17,37,8,23
  53. 680 data 10,51,97,25,177,7,53
  54. 690 data 10,43,52,0,0,0,0
  55. 700 data 20,51,97,22,227,6,108
  56. 710 data 20,0,0,25,177,0,0
  57. 720 data 20,0,0,19,63,9,159
  58. 730 data 10,38,126,25,177,0,0
  59. 740 data 10,43,100,0,0,0,0
  60. 750 data 20,34,75,21,154,8,147
  61. 760 data 20,0,0,25,177,6,108
  62. 770 data 20,0,0,21,154,4,73
  63. 780 data 20,0,0,0,0,0,0
  64. 790 data 0
  65. 799 return
  66. 800 print"[147]": poke53280,0:poke53281,0
  67. 801 fory=1024to2024:pokey,99:next
  68. 810 fori=1to1000:next
  69. 811 print""
  70. 812 printtab(12)"karlheinz herpel[146]"
  71. 813 printtab(12)"     zeigt      [146]"
  72. 814 gosub100:goto950
  73. 900 print"[147]":poke53280,0:poke53281,0
  74. 901 poke1063,80:fori=1062to1025step-1:pokei,119:next:poke1024,79:fora=1064to1944step40
  75. 902 pokea,101:next:poke1984,76:forl=1985to2022:pokel,111:next:poke2023,122
  76. 903 forx=1983to1103step-40:pokex,103:next
  77. 904 poke1141,80:fori=1181to1940step40:pokei,103:next:poke1941,122
  78. 905 fori=1940to1907step-1:pokei,111:next:poke1906,76:fori=1866to1146step-40
  79. 906 pokei,101:next:poke1106,79:fori=1107to1140:pokei,119:next:return
  80. 950 print"":gosub900:print"[156]"
  81. 951 printtab(10)"basic tips &  tricks"
  82. 952 printtab(10)"       teil 3"
  83. 953 printtab(5):fork=1to30:print"[192]";:next:print"[151]"
  84. 954 printtab(10)"  zusammengestellt"
  85. 955 printtab(10)"        von[154]"
  86. 956 printtab(10)"  karlheinz herpel[158]"
  87. 957 printtab(10)"     drueck f 1[151]"
  88. 960 poke198,0:wait198,1:gete$:poke198,1
  89. 961 ife$=chr$(133)thengosub900:print""tab(14)"[154]bitte warten":goto963
  90. 962 goto960
  91. 963 load"menue",8
  92.